home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / EDUCNOMY / ASTROSET.LZH / GMST.BAS < prev    next >
BASIC Source File  |  1985-12-20  |  512b  |  21 lines
  1. 700 REM    GREENWICH MEAN
  2. 702 REM    SIDEREAL TIME
  3. 704 REM
  4. 706 INPUT "J,F ";J,F
  5. 708 D=J-2451545
  6. 710 T=D/36525: T1=INT(T)
  7. 712 J0=T1*36525+2451545
  8. 714 T2=(J-J0+0.5)/36525
  9. 716 S=24110.54841+184.812866*T1
  10. 718 S=S+8640184.812866*T2
  11. 720 S=S+0.093104*T*T
  12. 722 S=S-0.0000062*T*T*T
  13. 724 S=S/86400: S=S-INT(S)
  14. 726 S=24*(S+(F-0.5)*1.002737909)
  15. 728 IF S<0 THEN S=S+24
  16. 730 IF S>24 THEN S=S-24
  17. 732 H=INT(S): M1=60*(S-H)
  18. 734 M=INT(M1): S=60*(M1-M)
  19. 736 PRINT "GMST: ";H;M;S
  20. 738 END
  21.